home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / WHE_INDU.TXT < prev    next >
Text File  |  1993-11-11  |  4KB  |  90 lines
  1. \CALL SET_STANDARD_ONKEYS
  2. \X INDUSTRIAL\MOVE 11200 TO CURR_PG\ON KEY PG_UP JUMP RESIDENTIAL\ON KEY PG_DN JUMP AGRICULTURAL\+
  3. \IF CURR_PG>=11210\JUMP TAG11210\ENDIF\MOVE 11200 TO CURR_PG
  4. \MOVE 44 TO V\CALLM SUB_HEAD
  5. Industrial Applications
  6. \"
  7. \X TAG11200\IF CURR_PG>=11210\JUMP TAG11210\ENDIF\MOVE 11200 TO CURR_PG
  8. \LINE 40,170,590,680,23,BF
  9. \MOVE 44 TO V\CALLM SETUP_TXT
  10. Pumps are widely used in industrial applications of all types.  They range from miniature precision models to enormous pumps that transfer sewage to processing plants.  Everywhere you look pumps are at work.
  11. \"
  12. One very important type of pump is the Gear Pump.  It is simple and reliable and requires little or no maintenance.
  13. \"
  14. Your car has many pumps within it.  The oil pump is typically a Gear Pump.  Other types of pumps in a car include a Fuel Pump, Radiator Pump, Tire Pump, Windshield Washer Fluid Pump and more.  Automatic transmissions have one or more pumps within them.
  15. \"
  16. \LINE 620,145,1024,660,1,BF
  17. \MOVE 680 TO Q\MOVE 300 TO R\MOVE 950 TO S\MOVE 470 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  18. \MOVE 'GEAR6PUM' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
  19. \ON KEY PG_UP JUMP RESIDENTIAL\ON KEY 7181 JUMP CAROFF
  20. \ROUNDS -1 SPEED 14\SHOW L=680,300
  21. \IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
  22. \X CAROFF\CALLM WAITOFF
  23. \X TAG11210\ON KEY 7181\IF CURR_PG>=11220\JUMP TAG11220\ENDIF\MOVE 11210 TO CURR_PG
  24. \MOVE 44 TO V\CALLM SETUP_TXT
  25. \"
  26. The crude oil which is used to produce gas and refined oil for your car is usually removed from the earth using a Sucker Rod Pump, which can lift oil 10,000 feet or more!
  27. \"
  28. The ships that move the raw oil use large pumps to fill and empty their holds.  Pumps move oil through oil pipelines.  Of course, you fill your car's tank with gasoline using a gas pump.
  29. \"
  30. \"
  31. \"
  32. \"
  33. \"
  34. \"
  35. \"
  36. \MOVE 'ROD5PUMP' TO PIC_FLNM\CALLM RD_PIC\LINE 620,270,1024,660,1,BF
  37. \CALLM WAITBOX\ROUNDS -1 SPEED 30\ON KEY 7181 JUMP DONEDERRICK\CLEAR SPRITES
  38. \SPRITE L=620,90 W=620,151,1023,724 A=1\SPRINT 1
  39. \IF LAST_ERROR>0
  40. \ROUNDS 1\RUN\MOVE 'ROD31PUM' TO PIC_FLNM\CALLM RD_PIC
  41. \IF LAST_ERROR=0\SPRITE L=620,90 W=620,151,1023,724 A=1\SPRINT 1\RUN
  42. \WAIT NOW -1\JUMP SHORT_SHOW\ELSE
  43. \WAIT NOW -1\JUMP SHORT_SHOW\ENDIF
  44. \SPRINT 2 TO 30
  45. \SPRITE A=NO L=2000,2000\SPRINT 1\SPRITE L=620,90 A=1\SPRINT 31 TO 60\RUN\X SHORT_SHOW\X DONEDERRICK\CALLM WAITOFF
  46. \X TAG11220\ON KEY 7181\ON KEY PG_UP JUMP INDUSTRIAL\IF CURR_PG>=11230\JUMP TAG11230\ENDIF\MOVE 11220 TO CURR_PG
  47. \MOVE 44 TO V\CALLM SETUP_TXT
  48. \"
  49. Factories use pumps throughout the shop floor.  To compress air, to operate hydraulic power tools, to move liquids and gases, and more.
  50. \"
  51. Food companies use special pumps to pump liquid sugar.  Cities pump water into storage tanks or even lakes with huge submersible pumps.
  52. \"
  53. Pumps are so important in fire fighting that there is even a truck named after them - the Pumper!
  54. \"
  55. \LINE 620,150,1024,650,1,BF
  56. \MOVE 640 TO Q\MOVE 340 TO R\MOVE 980 TO S\MOVE 590 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  57. \MOVE 'PUMPER' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
  58. \ROUNDS -1 SPEED 22
  59. \ON KEY 7181 JUMP PUMPOFF\SHOW L=600,340 W=640,340,980,590
  60. \IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
  61. \X PUMPOFF\CALLM WAITOFF
  62. \X TAG11230\ON KEY 7181\IF CURR_PG>=11300\JUMP AGRICULTURAL\ENDIF\MOVE 11230 TO CURR_PG
  63. \MOVE 44 TO V\CALLM SETUP_TXT
  64. \"
  65. \"
  66. \"
  67. This has been just a sampling of industrial uses of pumps.  Later you'll learn about how all these pumps work, and you'll be able to tell what types of pumps are usually best for different applications.
  68. \"
  69. \"
  70. \"
  71. \"
  72. \"
  73. \"
  74. \LINE 620,180,1024,650,1,BF
  75. \MOVE 690 TO Q\MOVE 330 TO R\MOVE 980 TO S\MOVE 460 TO T\MOVE 4 TO U\CALLM TUBE_BOX
  76. \LOCATE 710,370\WIDTH 260 DOTS CENTERED\OVER 1,A,52,1
  77. You have completed this section!
  78. \CALLM WAITBOX\WAIT NOW -1
  79. \X AGRICULTURAL
  80. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  81. \CALLM WAITOFF\MOVE 'WHE_AGRI' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
  82. \X RESIDENTIAL\CALLM WAITOFF\MOVE 'WHE_RESI' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
  83. \X MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  84. \X ALT_QUITED\ON ERROR\END
  85. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  86. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  87. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  88.  
  89.  
  90.